home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / biz / dopus / WolleDOpus.lha / wolledopus / c / CDD next >
AmigaDOS Script File  |  1998-02-06  |  699b  |  38 lines
  1. .key LISTER/A
  2. if <LISTER> eq Source
  3.     skip aufruf
  4. else
  5.     if <LISTER> eq Dest
  6.         skip aufruf
  7.     else
  8.         skip help
  9.     endif
  10. endif
  11. quit
  12.  
  13.  
  14. lab aufruf
  15.     set xlister `rx DOpus5:Arexx/CDD.dopus5 <LISTER>`
  16.     if `get xlister` eq NOLISTER
  17.         echo "keinen Lister gefunden"
  18.         echo " "
  19.         unset xlister
  20.         skip help
  21.         quit
  22.     else
  23.         cd `get xlister`
  24.         unset xlister    
  25.     endif
  26. quit
  27.  
  28. lab help
  29.     echo "CDD (CD DOpus) V0.98, Teil des WolleDOpus Paketes"
  30.     echo "wechselt den Pfad der aktuellen Shell auf den Pfad"
  31.     echo "des DOpus Quell- oder Ziellisters"
  32.     echo "Copyright © 1998 Marco Wollkopf"
  33.     echo " "
  34.     echo "Optionen: LISTER/A"
  35.     echo " "
  36.     echo "  LISTER: Source für den Quellister"
  37.     echo "          Dest   für den Ziellister"
  38. quit